home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / midilang / continue.mpl < prev    next >
Encoding:
Text File  |  1996-02-06  |  1.4 KB  |  81 lines
  1. 18650
  2. #
  3. #
  4. #
  5. #    Continue.mpl
  6. #
  7. #    An funny copier of your play
  8. # 
  9. #           Author           ID               Date
  10. #       ------------    -----------          ---------
  11. #       Serge Sibony    100417,2633          09/06/95
  12. #      
  13. #
  14. # This file is a mpl effect definition used by MidiLang
  15. #    MidiLang can be found at the MidiForum, in the
  16. #         Windows sound media library.
  17. # 
  18. # 
  19. #
  20. # For each notes played, this effect will try to continue
  21. # the melody. For example, if you play C and C#, this effect
  22. # will play D, and so on, with the same tempo.
  23. #
  24. # This effect works only on the upper channel
  25. #
  26.  
  27. Label Main
  28. Chan!= 4
  29.     goto end    bad channel, must be 4
  30. Vel== 0            
  31.     goto end    released note
  32.  
  33. V+= 1 1
  34.  
  35. V=V 5 2
  36. V=V 6 3        copy old data
  37. V=V 7 4    
  38.  
  39. V=note 2    mem the note
  40. V=time 3    mem the time
  41. V=Vel 4        mem the velocity
  42.  
  43. V< 1 2
  44.     goto end    at least two notes necessary
  45.  
  46. V=V 8 2
  47. V=V 9 3
  48. V=V 10 4
  49.  
  50.  
  51. V+=V 8 2    next note
  52. V-=V 8 5
  53.  
  54. Note=V 8
  55.  
  56. V+=V 9 3
  57. V-=V 9 6
  58.  
  59. Time=V 9
  60.  
  61. V=V 9 3
  62. V-=V 9 6
  63.  
  64. V>= 9 240    too long note
  65.   V= 9 240
  66.  
  67. Outmidi
  68.  
  69. Time+=V 9
  70. Vel= 0
  71. Outmidi        do not forget to release the note !
  72.  
  73.  
  74. Label End    if bad channel or first note
  75. End     
  76.  
  77.  
  78. Descript  This effect copies and tries to continue your play.
  79. Descript  all your upper note will be extrapoled
  80. Descript  (The effect will run after two notes played)
  81.